$string  = "hello world";

sub PrintHello{
	local $string;
	$string = "Hello perl";
	PrintMe();
	print "Inside the function PrintHello $string\n";
}
sub PrintMe{
   print "Inside the function PrintMe $string\n";
}

# Function call
PrintHello();
print "Outside the function $string\n";